pre code {
  font-size: 14px; /* Adjust the font size as desired */
}

Sampling & Re-grouping

names <- sample(c(
  "John", "Jon", "Jhon", "Jonh",
  "Michael", "Micheal", "Michel",
  "Emily", "Emili", "Emely", "Emiley",
  "Sarah", "Sara", "Sera", "Serah",
  "Matthew", "Mathew", "Mathhew",
  "Jessica", "Jessika", "Jesica", "Jessicah",
  "Daniel", "Daniele", "Danial",
  "Elizabeth", "Elisabeth", "Elisabet",
  "David", "Davi", "Davide",
  "Jennifer", "Jennipher", "Jenifer",
  "Christopher", "Cristopher", "Christoper",
  "Amanda", "Amandah", "Amandaa",
  "Andrew", "Andrw", "Andew",
  "Stephanie", "Stephany", "Stephaine",
  "Joshua", "Josh", "Jshua"
), replace = FALSE)

group <- function(names)
{

val2=NULL
for (i in names)
{
  val=agrep(i,names)
   val2=c(val2,val)
   
}
val2=unique(val2)


return(names[val2])
}

group(names)
##  [1] "Davi"        "Danial"      "Davide"      "Daniel"      "David"      
##  [6] "Daniele"     "Michael"     "Michel"      "Christoper"  "Christopher"
## [11] "Amandaa"     "Amandah"     "Amanda"      "Emely"       "Emily"      
## [16] "Emili"       "Emiley"      "Jonh"        "Josh"        "John"       
## [21] "Joshua"      "Jon"         "Stephany"    "Stephanie"   "Sera"       
## [26] "Sarah"       "Serah"       "Sara"        "Andrew"      "Andrw"      
## [31] "Andew"       "Elisabet"    "Elizabeth"   "Elisabeth"   "Mathew"     
## [36] "Matthew"     "Mathhew"     "Stephaine"   "Jshua"       "Jessica"    
## [41] "Jesica"      "Jessika"     "Jessicah"    "Cristopher"  "Micheal"    
## [46] "Jhon"        "Jennifer"    "Jenifer"     "Jennipher"